home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / source / music4c.sit / Music4C Folder / Sources Folder / MacInterface1.c < prev    next >
Text File  |  1990-06-08  |  3KB  |  119 lines
  1. /*
  2. * ⌐ Graeme Gerrard 1990
  3. * Faculty of Music, University of Melbourne
  4. * Parkville Victoria 3052 Australia.
  5. *
  6. * ARPANET: grae@murdu.ucs.unimelb.edu.au
  7. * telephone: (613) 344 4127, Fax: (613) 344 5346
  8. */
  9. #include    "Music4C.h"
  10. #include    "Music4C_Prototype.h"
  11.  
  12. void   MAC_do_pass12(void);
  13. static pascal char  MyFilter (DialogPtr   theDialog,  EventRecord   *theEvent,  short  *itemHit);
  14. static void  Refresh_Dialog(DialogPtr    GetSelection);
  15. extern    void    prepare_score(void);
  16. Boolean    MAC_Check_Pass12_Events(int, int);
  17.  
  18. extern    OSErr    theErr;
  19. extern    Str255    theMess1;
  20. CursHandle    theCursor;
  21.  
  22. static        Handle         aHandA, aHandB;
  23. static        Handle        aHand;
  24. static        DialogPtr    GetSelection;
  25.  
  26. #define  CANCELButton   1
  27. /* ======================================================== */
  28.  
  29. /* This is an update routine for non-controls in the dialog */ 
  30. /* This is executed after the dialog is uncovered by an alert */ 
  31. static void  Refresh_Dialog(GetSelection) 
  32.     DialogPtr    GetSelection;
  33. { 
  34.     Rect    tempRect;
  35.     short    DType;
  36.     Handle    DItem;
  37.  
  38.     GetDItem(GetSelection, CANCELButton, &DType, &DItem, &tempRect);
  39.     PenSize(3, 3);
  40.     InsetRect(&tempRect, -4, -4);
  41.     FrameRoundRect(&tempRect, 16, 16); 
  42.     PenSize(1, 1); 
  43.     
  44. } 
  45.  
  46. /* ======================================================== */
  47.  
  48.  
  49. void   MAC_do_pass12()
  50. {
  51.     Rect    tempRect, box;
  52.      short    DType;
  53.  
  54.     GetSelection = GetNewDialog(PASS1_2_DIALOG, NIL, (WindowPtr)-1);
  55.     if ( ( theErr = ResError()) != noErr ) {
  56.         PstringCopy((char *)theMess1, "\MAC_do_pass12: Can't open dialog resource");
  57.             OSError(theMess1, NIL, theErr);
  58.     }
  59.     tempRect.top = GetSelection->portRect.top;
  60.     tempRect.left = GetSelection->portRect.left;
  61.     tempRect.bottom = GetSelection->portRect.bottom;
  62.     tempRect.right = GetSelection->portRect.right;
  63.     tempRect.top = ((screenBits.bounds.bottom - screenBits.bounds.top) - (tempRect.bottom - tempRect.top)) / 2;
  64.     tempRect.left = ((screenBits.bounds.right - screenBits.bounds.left) - (tempRect.right - tempRect.left)) / 2;
  65.     MoveWindow(GetSelection, tempRect.left, tempRect.top, TRUE);
  66.     ParamText("\p", NIL, NIL, NIL);
  67.     ShowWindow(GetSelection);
  68.     SelectWindow(GetSelection);
  69.     SetPort(GetSelection);
  70.      
  71.      
  72.     /* Setup initial conditions */
  73.     DrawDialog(GetSelection);
  74.     GetDItem(GetSelection, 2, &DType, &aHandA, &box);
  75.     GetDItem(GetSelection, 4, &DType, &aHandB, &box);
  76.  
  77.     theCursor = GetCursor(watchCursor);
  78.     SetCursor(*theCursor);
  79.     
  80.     prepare_score();
  81.  
  82.     DisposDialog(GetSelection); 
  83.     InitCursor();
  84. }
  85.  
  86.  
  87. Boolean    MAC_Check_Pass12_Events(whichPass, SectionNo)
  88.     int    whichPass;
  89.     int    SectionNo;
  90. {
  91.     EventRecord    event;
  92.     long        Number;
  93.     char        theString[256];
  94.     WindowPtr    windowp;
  95.     long    aLong;
  96.     char    c;
  97.     short    itemHit;
  98.     
  99.     
  100.     if ( whichPass == 1 )
  101.         SetIText(aHandA, "\pPass1");
  102.     else if ( whichPass == 2 )
  103.         SetIText(aHandA, "\pPass2");
  104.         
  105.         
  106.     Number = (long)SectionNo;
  107.     NumToString(Number, theString);
  108.     SetIText(aHandB, theString);
  109.  
  110.     GetNextEvent(everyEvent, &event);
  111.     if ( IsDialogEvent(&event) ) {
  112.         if ( DialogSelect(&event, &GetSelection, &itemHit)) {
  113.             if ( itemHit == CANCELButton) {
  114.                 return(FALSE);
  115.             }
  116.         }
  117.     }
  118. }
  119.